home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)mc.d64 / toccata&fugue.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  14KB  |  293 lines
  1. 0 REM SAVE"@0:TOCCATA & FUGUE",8,1     :
  2. 100 FORS=54270TO54300:POKES,0:NEXT
  3. 200 BO=53280:BG=53281:POKEBO,1:POKEBG,0:PRINT"[147]"
  4. 201 PRINTTAB(12)"TOCCATA & FUGUE"
  5. 202 PRINTTAB(14)"IN D  MINOR"
  6. 203 PRINTTAB(14)"J. S.  BACH"
  7. 204 PRINTTAB(12)"TRANSCRIBED  BY"
  8. 205 PRINTTAB(12)"DOUGLAS A. BURR"
  9. 210 V=54296:REM VOLUME CONTROL
  10. 220 A1=54277:S1=54278:W1=54276:H1=54273:L1=54272:REM VOICE 1
  11. 230 A2=54284:S2=54285:W2=54283:H2=54280:L2=54279:REM VOICE 2
  12. 235 A3=54291:S3=54292:W3=54290:H3=54287:L3=54286:REM VOICE 3
  13. 400 POKEV,15:REM VOLUME HIGH
  14. 410 POKEA1,1:POKEA2,1:POKEA3,1:REM ATTACK
  15. 420 POKES1,136:POKES2,136:POKES3,136:REM SUSTAIN
  16. 430 POKEW1,33:POKEW2,33:POKEW3,33:REM SAWTOOTH ALL VOICES
  17. 1005 W=100:REM TIME DELAY VARIABLE
  18. 1010 READA,B,C,D,E,F
  19. 1015 IFA=300THENW=40 :GOTO1010
  20. 1020 IFA=325THENW=100:GOTO1010
  21. 1025 IFA=350THENW=20 :GOTO1010
  22. 1030 IFA=400THENW=5  :GOTO1010
  23. 1031 IFA=425THENW=25 :GOTO1010
  24. 1035 IFA=999THEN1200
  25. 1100 POKEH1,A:POKEL1,B:POKEH2,C:POKEL2,D:POKEH3,E:POKEL3,F
  26. 1105 POKEW1,33:POKEW2,33:POKEW3,33
  27. 1130 FORI=1TOW:NEXT
  28. 1135 GOTO1010
  29. 1200 PRINT"[144]LOAD"CHR$(34)"T2"CHR$(34)",8"
  30. 1201 POKE198,6
  31. 1202 FORI=1TO6:READX:POKE630+I,X:NEXT
  32. 2000 REM DATA IN SIX 'PIECES'
  33. 2001 DATA56,99,28,49,,,50,60,25,30,,,56,99,28,49,,
  34. 2002 DATA56,99,28,49,,,56,99,28,49,,,56,99,28,49,,,56,99,28,49,,
  35. 2003 DATA,,,,,,50,60,25,30,,,50,60,25,30,,,44,193,22,96,,,42,62,21,31,,
  36. 2004 DATA37,162,18,209,,,35,134,17,195,,,35,134,17,195,,
  37. 2005 DATA37,162,18,209,,,37,162,18,209,,
  38. 2006 DATA37,162,18,209,,,37,162,18,209,,,,,,,,,,,,,,,,,,,,,,,,,,
  39. 2007 DATA28,49,14,24,,,25,30,12,143,,,28,49,14,24,,
  40. 2008 DATA28,49,14,24,,,28,49,14,24,,,28,49,14,24,,,28,49,14,24,,,,,,,,
  41. 2009 DATA21,31,10,143,,,21,31,10,143,,,22,96,11,48,,,22,96,11,48,,,17,195,8,225
  42. 2010 DATA,,17,195,8,225,,,18,209,9,104,,
  43. 2011 DATA18,209,9,104,,,18,209,9,104,,
  44. 2012 DATA18,209,9,104,,,,,,,,,,,,,,,,,,,,,,,,,,:REM BAR 1
  45. 2013 DATA14,24,7,12,,,12,143,6,71,,,14,24,7,12,,
  46. 2014 DATA14,24,7,12,,,14,24,7,12,,,14,24,7,12,,,,,,,,
  47. 2015 DATA12,143,6,71,,,11,48,5,152,,,10,143,5,71,,
  48. 2016 DATA9,104,4,180,,,8,225,4,112,,,8,225,4,112,,
  49. 2017 DATA9,104,4,180,,,9,104,4,180,,,9,104,4,180,,
  50. 2018 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,2,90,,,,,2,90,,,,,2,90,,,,,2,90
  51. 2019 DATA,,8,225,2,90,,,8,225,2,90,,,8,225,2,90,,,8,225,2,90
  52. 2020 DATA10,143,8,225,2,90,10,143,8,225,2,90,10,143,8,225,2,90,10,143,8,225,2,90
  53. 2021 DATA12,143,8,225,2,90,12,143,8,225,2,90,12,143,8,225,2,90,12,143,8,225,2,90
  54. 2022 DATA14,239,8,225,2,90,14,239,8,225,2,90,14,239,8,225,2,90,14,239,8,225,2,90
  55. 2023 DATA17,195,8,225,2,90,17,195,8,225,2,90,17,195,8,225,2,90
  56. 2024 DATA17,195,8,225,2,90
  57. 2025 DATA21,31,8,225,2,90,21,31,8,225,2,90,21,31,8,225,2,90
  58. 2026 DATA21,31,8,225,2,90:REM BAR 2
  59. 2027 DATA21,31,8,225,2,90,21,31,8,225,2,90,21,31,8,225,2,90,21,31,8,225,2,90
  60. 2028 DATA18,209,12,143,2,90,18,209,12,143,2,90,18,209,10,143,2,90
  61. 2029 DATA18,209,10,143,2,90
  62. 2030 DATA18,209,11,218,2,90,18,209,11,218,2,90,18,209,11,218,2,90
  63. 2031 DATA18,209,11,218,2,90,18,209,11,218,2,90,18,209,11,218,2,90
  64. 2032 DATA18,209,11,218,2,90,18,209,11,218,2,90,18,209,11,218,2,90
  65. 2033 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  66. 2034 DATA300,300,300,300,300,300
  67. 2035 DATA17,197,8,225,,,17,197,8,225,,:REM BAR 3
  68. 2036 DATA18,209,9,104,,,21,31,10,143,,,17,197,8,225,,
  69. 2037 DATA18,209,9,104,,,21,31,10,143,,,17,197,8,225,,
  70. 2038 DATA18,209,9,104,,,21,31,10,143,,,17,197,8,225,,
  71. 2039 DATA18,209,9,104,,,18,209,9,104,,,21,31,10,143,,,21,31,10,143,,
  72. 2040 DATA22,96,11,48,,,25,30,12,143,,,21,31,10,143,,
  73. 2041 DATA22,96,11,48,,,25,30,12,143,,,21,31,10,143,,
  74. 2042 DATA22,96,11,48,,,25,30,12,143,,,21,31,10,143,,
  75. 2043 DATA22,96,11,48,,,22,96,11,48,,,25,30,12,143,,,25,30,12,143,,:REM BAR 4
  76. 2044 DATA28,49,14,24,,,29,223,14,239,,,25,30,12,143,,
  77. 2045 DATA28,49,14,24,,,29,223,14,239,,,25,30,12,143,,
  78. 2046 DATA28,49,14,24,,,29,223,14,239,,,25,30,12,143,,
  79. 2047 DATA28,49,14,24,,,28,49,14,24,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  80. 2048 DATA,,,,,,,,,,,,35,134,17,195,,,35,134,17,195,,:REM BAR 5
  81. 2049 DATA37,162,18,209,,,42,62,21,31,,,35,134,17,195,,
  82. 2050 DATA37,162,18,209,,,42,62,21,31,,,35,134,17,195,,
  83. 2051 DATA37,162,18,209,,,42,62,21,31,,,35,134,17,195,,
  84. 2052 DATA37,162,18,209,,,37,162,18,209,,,42,62,21,31,,,42,62,21,31,,
  85. 2053 DATA44,193,22,96,,,50,60,25,30,,,42,62,21,31,,
  86. 2054 DATA44,193,22,96,,,50,60,25,30,,,42,62,21,31,,
  87. 2055 DATA44,193,22,96,,,50,60,25,30,,,42,62,21,31,,
  88. 2057 DATA44,193,22,96,,,44,193,22,96,,,50,60,25,30,,,50,60,25,30,,:REM BAR 6
  89. 2058 DATA56,99,28,49,,,59,190,29,223,,,50,60,25,30,,
  90. 2059 DATA56,99,28,49,,,59,190,29,223,,,50,60,25,30,,
  91. 2060 DATA56,99,28,49,,,59,190,29,223,,,50,60,25,30,,
  92. 2061 DATA56,99,28,49,,,56,99,28,49,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  93. 2062 DATA56,99,28,49,,,56,99,28,49,,:REM BAR 7
  94. 2063 DATA50,60,25,30,,,59,190,29,223,,,42,62,21,31,,
  95. 2064 DATA50,60,25,30,,,59,190,29,223,,,42,62,21,31,,
  96. 2065 DATA44,193,22,96,,,56,99,28,49,,,37,162,18,209,,
  97. 2066 DATA44,193,22,96,,,56,99,28,49,,,37,162,18,209,,
  98. 2067 DATA42,62,21,31,,,50,60,25,30,,,33,135,16,195,,
  99. 2068 DATA42,62,21,31,,,50,60,25,30,,,33,135,16,195,,
  100. 2069 DATA37,162,18,209,,,44,193,22,96,,,29,223,14,239,,
  101. 2070 DATA37,162,18,209,,,44,193,22,96,,,29,223,14,239,,:REM BAR 8
  102. 2071 DATA33,135,16,195,,,42,62,21,31,,,28,49,14,24,,
  103. 2072 DATA33,135,16,195,,,42,62,21,31,,,28,49,14,24,,
  104. 2073 DATA29,223,14,239,,,37,162,18,209,,,25,30,12,143,,
  105. 2074 DATA29,223,14,239,,,37,162,18,209,,,25,30,12,143,,
  106. 2075 DATA28,49,14,24,,,33,135,16,195,,,22,96,11,48,,
  107. 2076 DATA28,49,14,24,,,33,135,16,195,,,22,96,11,48,,
  108. 2077 DATA25,30,12,143,,,29,223,14,239,,,21,31,10,143,,
  109. 2078 DATA25,30,12,143,,,29,223,14,239,,,21,31,10,143,,:REM BAR 9
  110. 2079 DATA22,96,11,48,,,28,49,14,24,,,18,209,9,104,,
  111. 2080 DATA22,96,11,48,,,28,49,14,24,,,18,209,9,104,,
  112. 2081 DATA21,31,10,143,,,25,30,12,143,,,17,195,8,225,,
  113. 2082 DATA21,31,10,143,,,25,30,12,143,,,17,195,8,225,,
  114. 2083 DATA325,325,325,325,325,325
  115. 2084 DATA,,,,2,90,,,,,2,90,,,,,2,90,,,,,2,90
  116. 2085 DATA29,223,8,225,2,90,29,223,8,225,2,90,29,223,8,225,2,90,29,223,8,225,2,90
  117. 2086 REM BAR 10
  118. 2087 DATA29,223,8,225,2,90,29,223,8,225,2,90,29,223,8,225,2,90,29,223,8,225,2,90
  119. 2088 DATA350,350,350,350,350,350
  120. 2089 DATA29,223,,,,,28,49,,,,
  121. 2090 DATA25,30,,,,,22,96,,,,
  122. 2091 DATA21,31,,,,,18,209,,,,
  123. 2092 DATA17,195,,,,,15,210,,,,
  124. 2093 DATA17,195,,,,,17,195,,,,,14,24,,,,,14,24,,,,
  125. 2094 DATA17,195,,,,,17,195,,,,,21,31,,,,,25,30,,,,
  126. 2095 DATA400,400,400,400,400,400
  127. 2096 DATA22,96,,,,,25,30,,,,,22,96,,,,,25,30,,,,,22,96,,,,,25,30,,,,
  128. 2097 DATA22,96,,,,,25,30,,,,,22,96,,,,,25,30,,,,,22,96,,,,,25,30,,,,,22,96,,,,
  129. 2098 DATA325,325,325,325,325,325
  130. 2099 DATA21,31,,,,,21,31,,,,,21,31,,,,,21,31,,,,:REM BAR 11
  131. 2100 DATA22,96,14,24,2,90,22,96,14,24,2,90,22,96,14,24,2,90,22,96,14,24,2,90
  132. 2101 DATA22,96,14,24,2,90,22,96,14,24,2,90,22,96,14,24,2,90,22,96,14,24,2,90
  133. 2102 DATA22,96,14,24,2,90,22,96,14,24,2,90,22,96,14,24,2,90
  134. 2104 DATA,,,,,,,,,,,,28,49,,,,,37,162,,,,,37,162,28,49,,
  135. 2105 DATA42,62,,,,,42,62,28,49,,,44,193,,,,,44,193,28,49,,
  136. 2106 DATA37,162,,,,,37,162,28,49,,,42,62,,,,,42,62,28,49,,
  137. 2107 DATA44,193,,,,,44,193,28,49,,,50,60,,,,,50,60,28,49,,
  138. 2108 DATA42,62,,,,,42,62,28,49,,:REM BAR 12
  139. 2109 DATA44,193,,,,,44,193,28,49,,,50,60,,,,,50,60,28,49,,
  140. 2110 DATA56,99,,,,,56,99,28,49,,,44,193,,,,,44,193,28,49,,
  141. 2111 DATA50,60,,,,,50,60,28,49,,,56,99,,,,,56,99,28,49,,
  142. 2112 DATA59,190,,,,,59,190,28,49,,,50,60,,,,,50,60,28,49,,
  143. 2113 DATA56,99,,,,,56,99,28,49,,,44,193,,,,,44,193,28,49,,
  144. 2114 DATA50,60,,,,,50,60,28,49,,,42,62,,,,,42,62,28,49,,
  145. 2115 DATA44,193,,,,,44,193,28,49,,,37,162,,,,,37,162,28,49,,
  146. 2116 DATA42,62,,,,,42,62,28,49,,,35,134,,,,,35,134,28,49,,:REM BAR 13
  147. 2117 DATA37,162,,,,,37,162,28,49,,,28,49,,,,,28,49,28,49,,
  148. 2118 DATA29,223,,,,,29,223,28,49,,,25,30,,,,,25,30,28,49,,
  149. 2119 DATA28,49,,,,,28,49,28,49,,,22,96,,,,,22,96,28,49,,
  150. 2120 DATA25,30,,,,,25,30,28,49,,,21,31,,,,,21,31,28,49,,
  151. 2121 DATA22,96,,,,,22,96,28,49,,,18,209,,,,,18,209,28,49,,
  152. 2122 DATA25,30,,,,,25,30,28,49,,,21,31,,,,,21,31,28,49,,
  153. 2123 DATA22,96,,,,,22,96,28,49,,,18,209,,,,,18,209,28,49,,
  154. 2124 DATA21,31,,,,,21,31,28,49,,,17,195,,,,,17,195,28,49,,:REM BAR 14
  155. 2125 DATA18,209,,,,,18,209,28,49,,,14,24,,,,,14,24,28,49,,
  156. 2126 DATA14,239,,,,,14,239,28,49,,,12,143,,,,,12,143,28,49,,
  157. 2127 DATA14,24,,,,,14,24,28,49,,,11,48,,,,,11,48,28,49,,
  158. 2128 DATA12,143,,,,,12,143,28,49,,,10,143,,,,,10,143,28,49,,
  159. 2130 DATA11,48,,,,,11,48,28,49,,,9,104,,,,,9,104,28,49,,
  160. 2131 DATA12,143,,,,,12,143,28,49,,,10,143,,,,,10,143,28,49,,
  161. 2132 DATA11,48,,,,,11,48,28,49,,,9,104,,,,,9,104,28,49,,
  162. 2133 DATA10,143,,,,,10,143,28,49,,,8,225,,,,,8,225,28,49,,:REM BAR 15
  163. 2134 DATA425,425,425,425,425,425
  164. 2135 DATA9,104,,,,,9,104,,,,,9,104,,,,,9,104,,,,,,,,,,
  165. 2136 DATA18,209,,,,,22,96,,,,,29,223,,,,,22,96,,,,
  166. 2137 DATA16,195,,,,,21,31,,,,,28,49,,,,,21,31,,,,
  167. 2138 DATA14,239,,,,,18,209,,,,,25,30,,,,,18,209,,,,
  168. 2139 DATA14,24,,,,,17,195,,,,,21,31,,,,,28,49,,,,
  169. 2140 DATA,,18,209,4,180,,,18,209,4,180,29,223,22,96,4,180,29,223,22,96,4,180
  170. 2141 DATA,,14,24,4,48,,,14,24,4,48,28,49,21,31,4,48,28,49,21,31,4,48
  171. 2142 DATA,,14,239,3,187,,,14,239,3,187,25,30,18,209,3,187,25,30,18,209,3,187
  172. 2143 REM BAR 16
  173. 2144 DATA28,49,10,143,3,134,28,49,10,143,3,134,28,49,10,143,3,134
  174. 2145 DATA28,49,10,143,3,134,,,,,,,18,209,,,,,22,96,,,,,29,223,,,,,22,96,,,,
  175. 2146 DATA16,195,,,,,21,31,,,,,28,49,,,,,21,31,,,,
  176. 2147 DATA14,239,,,,,18,209,,,,,25,30,,,,,18,209,,,,
  177. 2148 DATA14,24,,,,,17,195,,,,,21,31,,,,,28,49,,,,
  178. 2149 DATA,,18,209,4,180,,,18,209,4,180,29,223,22,96,4,180,29,223,22,96,4,180
  179. 2150 DATA,,14,24,4,48,,,14,24,4,48,28,49,21,31,4,48,28,49,21,31,4,48,,,14,239,3
  180. 2151 DATA187,,,14,239,3,187,25,30,18,209,3,187,25,30,18,209,3,187:REM BAR 17
  181. 2152 DATA28,49,10,143,3,134,28,49,10,143,3,134,28,49,10,143,3,134
  182. 2153 DATA28,49,10,143,3,134,28,49,10,143,3,134,28,49,10,143,3,134,28,49,10,143
  183. 2154 DATA3,134,28,49,10,143,3,134,28,49,,,,,25,30,,,,,22,96,,,,,21,31,,,,
  184. 2155 DATA18,209,,,,,17,195,,,,,15,210,,,,,17,195,,,,
  185. 2156 DATA14,24,,,,,15,210,,,,,17,195,,,,,18,209,,,,
  186. 2157 DATA21,31,,,,,22,96,,,,,25,30,,,,,28,49,,,,
  187. 2158 DATA25,30,,,,,22,96,,,,,21,31,,,,,22,96,,,,
  188. 2159 DATA18,209,,,,,22,96,,,,,28,49,,,,,35,135,,,,:REM BAR 18
  189. 2160 DATA37,162,,,,,28,49,,,,,31,165,,,,,35,134,,,,
  190. 2161 DATA37,162,,,,
  191. 2162 DATA42,62,,,,,44,193,,,,,50,60,,,,,56,99,,,,
  192. 2163 DATA59,190,,,,,59,190,,,,,59,190,,,,,59,190,,,,,,,,,,,,,,,,,,,,,,
  193. 2164 DATA,,37,162,4,180,,,37,162,4,180
  194. 2165 DATA59,190,44,193,4,180,59,190,44,193,4,180
  195. 2166 DATA,,28,49,4,48,,,28,49,4,48
  196. 2167 DATA56,99,42,62,4,48,56,99,42,62,4,48
  197. 2168 DATA,,29,223,3,187,,,29,223,3,187
  198. 2169 DATA50,60,37,162,3,187,50,60,37,162,3,187
  199. 2170 DATA56,99,35,134,3,134,56,99,35,134,3,134,56,99,35,134,3,134
  200. 2171 DATA,,,,,,,,,,,,,,,,,
  201. 2172 DATA37,162,,,,,44,193,,,,,59,190,,,,,44,193,,,,:REM BAR 19
  202. 2173 DATA33,135,,,,,42,62,,,,,56,99,,,,,42,62,,,,
  203. 2174 DATA29,223,,,,,37,162,,,,,50,60,,,,,37,162,,,,
  204. 2175 DATA28,49,,,,,35,134,,,,,42,62,,,,,56,99,,,,
  205. 2176 DATA,,37,162,4,180,,,37,162,4,180,,,37,162,4,180
  206. 2177 DATA59,190,44,193,4,180,59,190,44,193,4,180,59,190,44,193,4,180
  207. 2178 DATA,,28,49,4,48,,,28,49,4,48,,,28,49,4,48
  208. 2179 DATA56,99,42,62,4,48,56,99,42,62,4,48,56,99,42,62,4,48
  209. 2180 DATA,,29,223,3,187,,,29,223,3,187,,,29,223,3,187
  210. 2181 DATA50,60,37,162,3,187,50,60,37,162,3,187,50,60,37,162,3,187
  211. 2182 DATA56,99,35,134,3,134,56,99,35,134,3,134,56,99,35,134,3,134
  212. 2183 DATA,,,,,
  213. 2184 DATA31,165,18,209,3,83,31,165,18,209,3,83,31,165,18,209,3,83
  214. 2185 DATA31,165,18,209,3,83,31,165,18,209,3,83:REM BAR 20
  215. 2186 DATA35,135,14,24,3,35,35,135,14,24,3,35,35,135,14,24,3,35
  216. 2187 DATA35,135,14,24,3,35,35,135,14,24,3,35,35,135,14,24,3,35
  217. 2189 DATA31,165,14,24,3,35,31,165,14,24,3,35
  218. 2190 DATA28,49,,,,,28,49,,,,,35,134,,,,,35,134,,,,
  219. 2191 DATA42,62,,,,,50,60,,,,,59,190,,,,,59,190,,,,,59,190,,,,,59,190,,,,
  220. 2192 DATA56,99,,,,,50,60,,,,,44,193,,,,,42,62,,,,
  221. 2193 DATA44,193,,,,,42,62,,,,,37,162,,,,,35,134,,,,
  222. 2194 DATA37,162,,,,,33,135,,,,,29,223,,,,,28,49,,,,
  223. 2195 DATA25,30,,,,,22,96,,,,,21,31,,,,,18,209,,,,:REM BAR 21
  224. 2197 DATA42,62,17,195,6,71,42,62,17,195,6,71,42,62,17,195,6,71,42,62,17,195,6,71
  225. 2198 DATA42,62,17,195,6,71,42,62,17,195,6,71,42,62,17,195,6,71,42,62,17,195,6,71
  226. 2199 DATA42,62,17,195,6,71,42,62,17,195,6,71,42,62,17,195,6,71,42,62,17,195,6,71
  227. 2200 DATA42,62,17,195,6,71,42,62,17,195,6,71,42,62,17,195,6,71,42,62,17,195,6,71
  228. 2201 DATA300,300,300,300,300,300
  229. 2202 DATA35,134,21,31,,,42,62,25,30,,,35,134,21,31,,
  230. 2203 DATA29,223,17,195,,,35,134,21,31,,,29,223,17,195,,
  231. 2204 DATA35,134,21,31,,,42,62,25,30,,,35,134,21,31,,
  232. 2205 DATA29,223,17,195,,,35,134,21,31,,,29,223,17,195,,:REM BAR 22
  233. 2207 DATA35,134,21,31,,,42,62,25,30,,,35,134,21,31,,
  234. 2208 DATA29,223,17,195,,,35,134,21,31,,,29,223,17,195,,
  235. 2209 DATA35,134,21,31,,,42,62,25,30,,,35,134,21,31,,
  236. 2210 DATA29,223,17,195,,,35,134,21,31,,,29,223,17,195,,
  237. 2211 DATA25,30,14,239,,,29,223,17,195,,,25,30,14,239,,
  238. 2212 DATA21,31,12,143,,,25,30,14,239,,,21,31,12,143,,
  239. 2213 DATA25,30,14,239,,,29,223,17,195,,,25,30,14,239,,
  240. 2214 DATA21,31,12,143,,,25,30,14,239,,,21,31,12,143,,:REM BAR 23
  241. 2216 DATA25,30,14,239,,,29,223,17,195,,,25,30,14,239,,
  242. 2217 DATA21,31,12,143,,,25,30,14,239,,,21,31,12,143,,
  243. 2218 DATA25,30,14,239,,,29,223,17,195,,,25,30,14,239,,
  244. 2219 DATA21,31,12,143,,,25,30,14,239,,,21,31,12,143,,
  245. 2220 DATA17,195,10,143,,,21,31,12,143,,,17,195,10,143,,
  246. 2221 DATA14,239,8,225,,,17,195,10,143,,,14,239,8,225,,
  247. 2222 DATA17,195,10,143,,,21,31,12,143,,,17,195,10,143,,
  248. 2223 DATA14,239,8,225,,,17,195,10,143,,,14,239,8,225,,:REM BAR 24
  249. 2224 DATA17,195,10,143,,,21,31,12,143,,,17,195,10,143,,
  250. 2225 DATA14,239,8,225,,,17,195,10,143,,,14,239,8,225,,
  251. 2226 DATA17,195,10,143,,,21,31,12,143,,,17,195,10,143,,
  252. 2227 DATA14,239,8,225,,,17,195,10,143,,,14,239,8,225,,
  253. 2228 DATA17,195,10,143,,,21,31,12,143,,,17,195,10,143,,
  254. 2229 DATA21,31,12,143,,,25,30,14,239,,,21,31,12,143,,
  255. 2230 DATA17,195,10,143,,,21,31,12,143,,,17,195,10,143,,
  256. 2231 DATA21,31,12,143,,,25,30,14,239,,,21,31,12,143,,:REM BAR 25
  257. 2232 DATA17,195,10,143,,,21,31,12,143,,,17,195,10,143,,
  258. 2233 DATA21,31,12,143,,,25,30,14,239,,,21,31,12,143,,
  259. 2234 DATA17,195,10,143,,,21,31,12,143,,,17,195,10,143,,
  260. 2235 DATA21,31,12,143,,,25,30,14,239,,,21,31,12,143,,
  261. 2236 DATA25,30,10,143,,,29,223,12,143,,,25,30,10,143,,
  262. 2237 DATA29,223,12,143,,,25,30,10,143,,,29,223,12,143,,
  263. 2238 DATA25,30,14,239,,,29,223,17,239,,,25,30,14,239,,
  264. 2239 DATA29,223,17,195,,,25,30,14,239,,,29,223,17,195,,:REM BAR 26
  265. 2241 DATA35,134,21,31,,,29,223,17,195,,,35,134,21,31,,
  266. 2242 DATA42,62,17,195,,,35,134,21,31,,,42,62,17,195,,
  267. 2243 DATA35,134,21,31,,,29,223,17,195,,,35,134,21,31,,
  268. 2244 DATA42,62,17,195,,,35,134,21,31,,,42,62,17,195,,
  269. 2245 DATA325,325,325,325,325,325
  270. 2246 DATA56,99,17,195,6,71,56,99,17,195,6,71
  271. 2247 DATA56,99,17,195,6,71,,,,,,
  272. 2248 DATA56,99,18,209,5,152,56,99,18,209,5,152
  273. 2249 DATA56,99,18,209,5,152,56,99,18,209,5,152:REM BAR 27
  274. 2251 DATA50,60,18,209,7,119,50,60,18,209,7,119
  275. 2252 DATA50,60,18,209,7,119,50,60,18,209,7,119
  276. 2253 DATA,,,,7,119,,,,,7,119,,,,,7,12,,,,,6,71
  277. 2254 DATA50,60,17,195,7,12,50,60,17,195,7,12
  278. 2255 DATA50,60,17,195,7,12,50,60,17,195,5,71
  279. 2256 DATA,,,,5,152,,,,,4,180,,,,,5,71,,,,,4,112:REM BAR 28
  280. 2258 DATA,,,,4,180,,,,,3,244,,,,,4,112,,,,,3,134
  281. 2259 DATA,,,,3,187,,,,,3,83,,,,,3,134,35,134,14,24,6,71
  282. 2260 DATA37,162,14,24,5,152,37,162,14,24,5,152
  283. 2261 DATA22,96,14,24,4,180,22,96,14,24,4,180
  284. 2262 DATA21,31,18,209,3,134,21,31,18,209,3,134
  285. 2263 DATA21,31,17,195,3,134,21,31,12,143,3,134:REM BAR 29
  286. 2264 DATA18,209,12,143,2,90,18,209,12,143,2,90
  287. 2265 DATA18,209,11,48,2,90,18,209,10,143,2,90
  288. 2266 DATA18,209,11,48,2,90,18,209,11,48,2,90
  289. 2267 DATA18,209,11,48,2,90,18,209,11,48,2,90
  290. 2268 DATA18,209,11,48,2,90,18,209,11,48,2,90,,,,,,:REM LOAD IN NEXT PART
  291. 5000 DATA999,999,999,999,999,999
  292. 5001 DATA19,13,82,85,78,13
  293.